clear all

// Get targets
insheet using "abortion_canvass_data.csv", clear
keep if t2_respondent == 1 // first post-treatment survey
sum vf_white vf_female vf_age t0_pid t0_ideology

// Data on terciles
// Create a binary variable: "not likely at all" response to t0 Volunteer for an organization that supports women who need abortions.
gen no_volunteer = t0_act_volunteer_clinic == 0

tabstat t0_dem t0_therm_women_abort no_volunteer if treat != 0 & canvassed == 1, by(t0_baseline_support_thirds)

// Bring in BKS 2017
insheet using "bks_data.csv", clear
keep if respondent_t1 == 1

local covars t0_ideology t0_pid t0_catholic t0_religious  /// 
                        t0_gssifthewomanshealthisse t0_gssthewomanwantsitforany  /// 
                        t0_gssifshebecamepregnantas t0_gssifthereisastrongchanc  /// 
                        t0_gssifthefamilyhasaverylo t0_gssifsheisnotmarriedandd  /// 
                        t0_gssifsheismarriedanddoes  ///
                        t0_abort_itemitswomensfa t0_abort_itemwomenwhohav  /// 
                        t0_abort_itemwithmodernb t0_abort_itemtheresnothi  /// 
                        t0_abort_itemifawomanfee t0_abort_itemthegovernme  /// 
                        t0_abort_itemifafriendch t0_ballot_abortion  ///
                        vf_female vf_hispanic vf_asian vf_age
					
// Replicate results in Table OA4, Model 1, Row 1 of BKS 2017
reg alldvst1 i.treat `covars', cluster(hh_id)

ebalance vf_white vf_female vf_age t0_pid t0_ideology, manualtargets(.9955882 .5191176 ///
	50.82647 -.4676285 -.3411765 )

reg alldvst1 i.treat `covars' [pweight= _webal], cluster(hh_id)
